home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / print / VCArchive321.lha / vcarchive / Untitled III.install < prev    next >
Text File  |  1995-11-15  |  11KB  |  416 lines
  1. ; *************************************************************************
  2. ; ******************  Untitled III Installation Script  *******************
  3. ; *************************************************************************
  4. ;
  5. ; $VER: Untitled III.install 1.1 (15.10.95)
  6. ;
  7. ; Copyright ©1995 Harald Zottmann
  8. ;
  9. ; *************************************************************************
  10. ;
  11.  
  12.  
  13. ; ------------------------------------------------------------------------
  14. ; Find out about program version
  15.  
  16.     (set vernum-vca    (getversion "Untitled"))
  17.     (set version-vca   (/ vernum-vca 65536))
  18.     (set revision-vca  (- vernum-vca (* version-vca 65536) ) )
  19.  
  20. ; ------------------------------------------------------------------------
  21. ; Set default destination directory
  22.  
  23.     (set def-vca-dir "SYS:")
  24.  
  25. ; ------------------------------------------------------------------------
  26. ; Set default language
  27.  
  28.     (set default_lang 1)
  29.  
  30. ; ------------------------------------------------------------------------
  31. ; Init some strings
  32.  
  33.     (set #yes-msg "Yes")
  34.     (set #no-msg "No")
  35.  
  36.     (set #new-msg "New Requester Look")
  37.     (set #old-msg "Old Requester Look")
  38.  
  39.     (set #mc-msg "MC - Music Cassettes")
  40.     (set #cd-msg "CD - Compact Discs")
  41.     (set #phono-msg "Phono - Longplayers")
  42.     (set #video-msg "Video - Video Tapes")
  43.  
  44.     (set #bad-kick-msg 
  45.         "Untitled III requires AmigaOS 2.04 or better !"
  46.     )
  47.  
  48.     (set #hello-msg
  49.         (cat
  50.         ("Welcome to Untitled V%ld.%ld\n\n" version-vca revision-vca)
  51.         "This script will install Untitled III and "
  52.         "related files on your Amiga.\n\n"
  53.         "You will need to answer a few questions such as "
  54.         "where you would like the program installed.\n\n"
  55.         "If you do not wish to install Untitled at this time, "
  56.         "select the 'Abort Install' button now. "
  57.         )
  58.     )
  59.  
  60.     (set #goodbye-msg
  61.         (cat
  62.         "The installation of Untitled III is now complete. "
  63.         "Have a look at the guides to get more information "
  64.         "about this powerful tool. If you have TeX installed "
  65.         "on your Amiga, you can print the DVI-file with the "
  66.         "complete program description.\n\n"
  67.         "Don`t forget to register if you use Untitled III "
  68.         "frequently. See the docs for more information.\n\n"
  69.         "Have fun..."
  70.         )
  71.     )
  72.  
  73.     (set #shortbye-msg
  74.         (cat
  75.         "Don`t forget to register if you use Untitled III "
  76.         "frequently. See the docs for more information.\n\n"
  77.         "Have fun..."
  78.         )
  79.     )
  80.  
  81.     (set #vca-askdir-msg 
  82.         "Select the directory to install Untitled III in."
  83.     )
  84.  
  85.     (set #locale-msg
  86.         (cat
  87.         "Untitled III is localized and has been translated "
  88.         "into the following languages. Please indicate "
  89.         "which translation you wish to install.\n"
  90.         )
  91.     )
  92.  
  93.     (set #locale-help
  94.         (cat
  95.         "English and Deutsch are the languages which are "
  96.         "supported by Untitled III. "
  97.         "Simply specify the language you prefer. "
  98.                 "You can change your selection later, "
  99.                 "by modifying the corresponding Tooltype. "
  100.         "The AmigaGuide files for Untitled III will "
  101.         "be present for both languages, regardless of "
  102.         "your present selection."
  103.         )
  104.     )
  105.  
  106.     (set #examples-msg
  107.         (cat
  108.         "Untitled III comes with several example files. "
  109.         "Please select whether you want them to be "
  110.         "installed for training purposes. "
  111.         " You can delete them later, if you want.\n"
  112.         )
  113.     )
  114.  
  115.     (set #examples-help
  116.         (cat
  117.         "These files provide some examples on how to "
  118.         "work with Untitled III. If you have a "
  119.         "previous version of Untitled III installed "
  120.         "and this is only an update, you must not "
  121.         "install these examples. "
  122.         )
  123.     )
  124.  
  125.     (set #su-mode-msg
  126.         (cat
  127.         "\Untitled III manages your MCs, CDs, "
  128.         "Longplayers and Videos. Please select the "
  129.         "default mode of Untitled III on program start. "
  130.         "You can change this selection later, if you want.\n"
  131.         )
  132.     )
  133.  
  134.     (set #su-mode-help
  135.         (cat
  136.         "This option gives you the choice between the four "
  137.         "different modes (MC, CD, Phono, Video) of Untitled III. "
  138.         "The selected mode will be invoked on every program start, "
  139.         "but you can alter the mode during run time, whenever you want. "
  140.         "If you are not sure, the best decision is to "
  141.         "select the mode which you intend to use most often. "
  142.         )
  143.     )
  144.  
  145.     (set #su-req-msg
  146.         (cat
  147.         "Untitled III provides two different requester styles. "
  148.         "The new OS2.x requester look and an old internal one. "
  149.         "The advantage of the old one is, that you can "
  150.         "confirm it with the <RETURN> key, and cancel it "
  151.         "with the <ESCAPE> key. The new one however looks much neater.\n"
  152.         )
  153.     )
  154.  
  155.     (set #su-req-help
  156.         (cat
  157.         "This option gives you the choice between two "
  158.         "different requester styles. "
  159.         "If you are not sure, select the new one. "
  160.         "You can change this selection later, if you want.\n"
  161.         )
  162.     )
  163.  
  164.  
  165. ; ************************************************************************
  166. ; Begin actual installation
  167. ; ************************************************************************
  168.  
  169.  
  170. ; ------------------------------------------------------------------------
  171. ; Check for KickV37 or better
  172.  
  173.     (if (< (/ (getversion) 65536) 37)
  174.         (
  175.         (abort #bad-kick-msg)
  176.         )
  177.     )
  178.  
  179.  
  180. ; ------------------------------------------------------------------------
  181. ; Print the welcome message
  182.  
  183.     (message #hello-msg)
  184.  
  185.  
  186. ; ------------------------------------------------------------------------
  187. ; Ask the user where we should install Untitled III.
  188.  
  189.     (set vcadir
  190.         (askdir
  191.             (prompt #vca-askdir-msg)
  192.             (help @askdir-help)
  193.             (default def-vca-dir)
  194.         )
  195.     )
  196.     (if (= 0 @user-level)
  197.         (
  198.         (set vcadir (tackon @default-dest "VCArchive") )
  199.         (makedir vcadir)
  200.         (copyfiles (source "/VCArchive") (dest vcadir) (infos) (all))
  201.         (exit (#shortbye-msg)) 
  202.         )
  203.     )
  204.  
  205.  
  206.  
  207.     (copyfiles (source "Untitled") (dest vcadir) (infos) )
  208.  
  209.  
  210.  
  211.     (if (NOT(exists (tackon vcadir "VCA.CFG") ) )
  212.         (copyfiles (source "VCA.CFG") (dest vcadir) )
  213.     )
  214.     (if (NOT(exists (tackon vcadir "VCA.FNK") ) )
  215.         (copyfiles (source "VCA.FNK") (dest vcadir) )
  216.     )
  217.  
  218.  
  219.  
  220.     (copyfiles (source "VCA_E.guide") (dest vcadir) (infos) )
  221.     (copyfiles (source "VCA_D.guide") (dest vcadir) (infos) )
  222.  
  223.  
  224.  
  225.     (set toolsdrw (tackon vcadir "Tools"))
  226.     (makedir toolsdrw)
  227.     (copyfiles (source "Tools.info") (dest vcadir) )
  228.  
  229.     (copyfiles (source "Tools/VideoCounter")  (dest toolsdrw) (infos) )
  230.     (copyfiles (source "Tools/Backup")        (dest toolsdrw) (infos) )
  231.     (copyfiles (source "Tools/Requester")     (dest toolsdrw) )
  232.     (copyfiles (source "Tools/FUnCopy")       (dest toolsdrw) )
  233.  
  234.  
  235.  
  236.     (set docsdrw (tackon vcadir "Docs"))
  237.     (makedir docsdrw)
  238.     (copyfiles (source "Docs.info") (dest vcadir) )
  239.  
  240.     (copyfiles (source "Docs/VCA_E.dvi")      (dest docsdrw) (infos) )
  241.     (copyfiles (source "Docs/VCA_E.doc")      (dest docsdrw) (infos) )
  242.     (copyfiles (source "Docs/VCA.ReadMe")     (dest docsdrw) (infos) )
  243.  
  244.     (copyfiles (source "Docs/VCA_D.dvi")      (dest docsdrw) (infos) )
  245.     (copyfiles (source "Docs/VCA_D.doc")      (dest docsdrw) (infos) )
  246.     (copyfiles (source "Docs/VCA.LiesMich")   (dest docsdrw) (infos) )
  247.  
  248.     (copyfiles (source "Docs/ORDERFORM.TXT")  (dest docsdrw) (infos) )
  249.     (copyfiles (source "Docs/DISCLAIMER.TXT") (dest docsdrw) (infos) )
  250.  
  251.  
  252. ; ------------------------------------------------------------------------
  253. ; Ask which built in language should be invoked for Untitled III.
  254.  
  255.     (set lang
  256.         (askchoice
  257.             (prompt #locale-msg)
  258.             (help #locale-help)
  259.             (choices
  260.                 "English"
  261.                 "Deutsch"
  262.             )
  263.             (default default_lang)
  264.         )
  265.     )
  266.     (if (= 0 lang)
  267.         (tooltype
  268.             (dest (tackon vcadir "Untitled"))
  269.             (settooltype "LANGUAGE" "1")
  270.         )
  271.     )
  272.     (if (= 1 lang)
  273.         (tooltype
  274.             (dest (tackon vcadir "Untitled"))
  275.             (settooltype "LANGUAGE" "0")
  276.         )
  277.     )
  278.  
  279. ; ------------------------------------------------------------------------
  280. ; Update from a version, previous to Untitled Version 3.0
  281.  
  282.         (if (exists (tackon vcadir "Ordner_1") )
  283.             (rename (tackon vcadir "Ordner_1") (tackon vcadir "MC_Ordner_1") )
  284.         
  285.         )
  286.         (if (exists (tackon vcadir "Ordner_2") )
  287.             (rename (tackon vcadir "Ordner_2") (tackon vcadir "MC_Ordner_2") )
  288.         
  289.         )
  290.         (if (exists (tackon vcadir "Ordner_3") )
  291.             (rename (tackon vcadir "Ordner_3") (tackon vcadir "MC_Ordner_3") )
  292.         
  293.         )
  294.         (if (exists (tackon vcadir "Ordner_1.List") )
  295.             (rename (tackon vcadir "Ordner_1.List") (tackon vcadir "MC_Ordner_1.Liste") )
  296.         
  297.         )
  298.         (if (exists (tackon vcadir "Ordner_2.List") )
  299.             (rename (tackon vcadir "Ordner_2.List") (tackon vcadir "MC_Ordner_2.Liste") )
  300.         
  301.         )
  302.         (if (exists (tackon vcadir "Ordner_3.List") )
  303.             (rename (tackon vcadir "Ordner_3.List") (tackon vcadir "MC_Ordner_3.Liste") )
  304.         
  305.         )
  306.  
  307. ; ------------------------------------------------------------------------
  308. ; Ask whether examples should be installed
  309.  
  310.     (set examples
  311.         (askchoice
  312.             (prompt #examples-msg)
  313.             (help #examples-help)
  314.             (choices
  315.                 #yes-msg
  316.                 #no-msg
  317.             )
  318.             (default 0)
  319.         )
  320.     )
  321.     (if (= 0 examples)
  322.         ( 
  323.         (if (NOT(exists (tackon vcadir "MC_Ordner_1") ) )
  324.             ( (copyfiles (source "MC_Ordner_1")       (dest vcadir) )
  325.                 (copyfiles (source "MC_Ordner_1.Liste") (dest vcadir) )
  326.             )
  327.  
  328.         )
  329.         (if (NOT(exists (tackon vcadir "CD_Ordner_1") ) )
  330.               ( (copyfiles (source "CD_Ordner_1")       (dest vcadir) )
  331.                 (copyfiles (source "CD_Ordner_1.Liste") (dest vcadir) )
  332.             )
  333.         )
  334.         (if (NOT(exists (tackon vcadir "Phono_Ordner_1") ) )
  335.               ( (copyfiles (source "Phono_Ordner_1")       (dest vcadir) )
  336.                 (copyfiles (source "Phono_Ordner_1.Liste") (dest vcadir) )
  337.             )
  338.         )
  339.         (if (NOT(exists (tackon vcadir "Video_Ordner_1") ) )
  340.               ( (copyfiles (source "Video_Ordner_1")       (dest vcadir) )
  341.                 (copyfiles (source "Video_Ordner_1.Liste") (dest vcadir) )
  342.             )
  343.         )
  344.         )
  345.     )
  346.  
  347. ; ------------------------------------------------------------------------
  348. ; Ask for startup mode
  349.  
  350.     (set su-mode
  351.         (askchoice
  352.             (prompt #su-mode-msg)
  353.             (help #su-mode-help)
  354.             (choices
  355.                 #mc-msg
  356.                 #cd-msg
  357.                 #phono-msg
  358.                 #video-msg
  359.             )
  360.             (default 0)
  361.         )
  362.     )
  363.     (if (= 0 su-mode)
  364.         (tooltype
  365.             (dest (tackon vcadir "Untitled"))
  366.             (settooltype "MODUS" "1")
  367.         )
  368.  
  369.     )
  370.     (if (= 1 su-mode)
  371.         (tooltype
  372.             (dest (tackon vcadir "Untitled"))
  373.             (settooltype "MODUS" "2")
  374.         )
  375.  
  376.     )
  377.     (if (= 2 su-mode)
  378.         (tooltype
  379.             (dest (tackon vcadir "Untitled"))
  380.             (settooltype "MODUS" "3")
  381.         )
  382.  
  383.     )
  384.     (if (= 3 su-mode)
  385.         (tooltype
  386.             (dest (tackon vcadir "Untitled"))
  387.             (settooltype "MODUS" "4")
  388.         )
  389.  
  390.     )
  391.  
  392. ; ------------------------------------------------------------------------
  393. ; Ask for requester style
  394.  
  395.     (set su-req
  396.         (askchoice
  397.             (prompt #su-req-msg)
  398.             (help #su-req-help)
  399.             (choices
  400.                 #new-msg
  401.                 #old-msg
  402.             )
  403.             (default 0)
  404.         )
  405.     )
  406.     (if (= 0 su-req)
  407.         (tooltype (dest (tackon vcadir "Untitled")) (settooltype "STYLE" "1") )
  408.         (tooltype (dest (tackon vcadir "Untitled")) (settooltype "STYLE" "0") )
  409.     )
  410.  
  411. ; ------------------------------------------------------------------------
  412. ; Print the goodbye message
  413.  
  414.     (message #goodbye-msg)
  415.  
  416.